N1: TMenuItem;\r
mnuOptions: TMenuItem;\r
mnuSynthesizeShortNames: TMenuItem;\r
+ edInputOpts: TEdit;\r
+ lbInputOpts: TLabel;\r
+ lbOutputOpts: TLabel;\r
+ edOutputOpts: TEdit;\r
+ Filter1: TMenuItem;\r
procedure FormShow(Sender: TObject);\r
procedure FormCreate(Sender: TObject);\r
procedure OpenButtonClick(Sender: TObject);\r
\r
FixAlign(sbOpenFile, 8);\r
FixAlign(sbSaveFile, 8);\r
- FixAlign(cbInputFormat, 8);\r
- FixAlign(cbInputFormatDevice, 8);\r
- FixAlign(cbOutputFormat, 8);\r
+ edInputOpts.Left := lbInputOpts.Left + lbInputOpts.Width + 8;\r
+ edOutputOpts.Left := lbOutputOpts.Left + lbOutputOpts.Width + 8;\r
+ FixAlign(edInputOpts, 8);\r
+ FixAlign(edOutputOpts, 8);\r
FixAlign(btnProcess, 8);\r
FixAlign(btnFilter, 16, btnProcess);\r
FixAlign(edInputFile, 8, sbOpenFile);\r
FixAlign(edOutputFile, 8, sbSaveFile);\r
- FixAlign(cbOutputFormatDevice, 8);\r
end;\r
\r
procedure TfrmMain.LoadFileFormats;\r
begin\r
LoadVersion;\r
LoadFileFormats;\r
- \r
+\r
// ? valid README form\r
\r
acHelpReadme.Enabled := (frmReadme.Memo.Lines.Count > 0);\r
if cbWaypoints.Checked then cmdline := cmdline + ' -w';\r
if cbRoutes.Checked then cmdline := cmdline + ' -r';\r
if cbTracks.Checked then cmdline := cmdline + ' -t';\r
- \r
+\r
if mnuSynthesizeShortNames.Checked then cmdline := cmdline + ' -s';\r
\r
if chbInputDevice.Checked then\r
s := '"' + s + '"';\r
end;\r
\r
- cmdline := Format('%s -i %s -f %s',\r
- [ cmdline, IFormat, s]);\r
+ if (Trim(edInputOpts.Text) <> '') then\r
+ cmdline := Format('%s -i %s,%s -f %s',\r
+ [cmdline, IFormat, Trim(edInputOpts.Text), s])\r
+ else\r
+ cmdline := Format('%s -i %s -f %s',\r
+ [cmdline, IFormat, s]);\r
\r
cmdline := cmdline + frmFilter.CmdLine;\r
\r
s := '"' + s + '"';\r
end;\r
\r
- cmdline := Format('%s -o %s -F %s',\r
- [ cmdline, OFormat, s]);\r
+ if (Trim(edOutputOpts.Text) <> '') then\r
+ cmdline := Format('%s -o %s,%s -F %s',\r
+ [cmdline, OFormat, Trim(edOutputOpts.Text), s])\r
+ else\r
+ cmdline := Format('%s -o %s -F %s',\r
+ [cmdline, OFormat, s]);\r
\r
while (cmdline[1] = ' ') do System.Delete(cmdline, 1, 1);\r
\r